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SERTES-ITI B8O08S5/E087/EN8S MACRO ASSEMBLER V1.1 ASSEMBLY OF MODULE SOPSUP 
OSBVECT MODULES: PLACED IN 3FUSSOPSUPS 03d 
ASSEMBLER INVOKEG 8Y: ASHS6.86 :F1:SDPSUP.A86 XREF PRINTC2F5:SOPSUP.LST) 


LOC OBJ LINE SOURCE 
1 r7StitleC’IOS Double Precision Support’) 
2: name sdpsup 
5 PRPPPIIIEFIPTIPLEPPIIEIIPFSIPIPPPEPTOPEFPPPPPPIPIPEPPOPIPIISITIPIPIPEPIPOPDFIFPFIPIPIFDETEPE 
4 ; 
5 7 TITLE sdpsup.eagsé 
6 r | Defines a seat of double pracision support routines. 
; 7 ; . 
g ; DATE: 7-27-80 
9 ; S= 28.2: es 
Ve 7 Lifted from Second Stage bootstrap for the iT 
PS System 
11 ; Bootstrap Loader 
12 ; 
a Be ; 
14 ; ABSTRACT: © Double precision integer (32 bit) operations for usa 
5 ? . by the bootstrap loader. This module copied directly 
16 ; from 8asic I/0 System idpsup.ags6, but with all ~ 
17 ; procedures not used by the bootstrap loader commented 
18 ; Out. : 
19 ; . 
20 ; Double precision numbers are passed around as PL/M 32-bit poi 
nters. 
21 , Thus, when returned from procedures herery are returned in es: 
DXs< 
22 ; Note that this could be nasty on the @096., 
23 7 
24 ; LANGUAGE DEPENDENCIES: The procedures defined in this module may only he 
25 ; célled from COMPACT procedures. 
zé 7 
27 +1 Sinclude(€:fl:bprop.asm) 
=1 28 [x 
1 29 , * INTEL CORPORATION PROPRIETARY INFORMATION. THIS LISTING IS 
=1 30 , * SUPPLIED UNDER THE TERMS OF A LICENSE AGREEMENT WITH INTEL 
= 31 , * CORPORATION AND MAY NOT BE COPIED NOR CISCLOSEOD EXCEPT IN | 
=4 Se 7 * ACCORDANCE WITH THE TERMS OF THAT AGREEMENT. 
= 33 , */ 
34 ; 
52 PPPTPPPPPPPPTLIPSPEPPLILEPPSEPEFLPTPEPPPIPFIDIPPPLIPTSDIPTSPPDEPFIIEFOPTPISIPOPE 
36 
0004. 37 arg_off equ 4 . , set aras for COMPACT 
: “2 
+e ; 39 code segment word public ’CODE’ 
ia 40 code ends 
41 
42 cgroup group code 
43 reSsubtitle(’Double to Singles Conversion’) 
4g POPIPTIPPPPPITIDEPLEOIPEEPFIEIPEPDEEELIPEDPPFEIPEIPPOPEPLEPEPTFIDIPITEPEDEFPEODOS 
45 ay ae 
46 77 std- 


47° a7 Return low-order part of a double precision Cunsigned 32-bit) 


m 
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LOC O8J LINE SOURCE 

46 a7 number. No overflow detection occurs. 

49 a 

50 7 sfd: PROCEDURECdp) WORD, 

51 ,? DECLARE 

52 ? dp DWORD, 

53 a END sfd-, 

54 ,? 

55. PEPPPIPPPEPPEEEEPLEPPPPEPPPIPELFTEPPIFDIPPPIPPIPIPEPIFEPITESOPFEPISDEPPFPITEPIPPPLEP 
5é ; 

oT ecode segment 

58 ; assume cs: cgroup 

59 , 

60 rsfa proc near 

61 ; public  sfd 

62 ; push pen 

63 ; mov bp, sp > save and mark stack 
64 ; 

65 rdp_low equ word ptr Cbp + arg_off + QJ 

66 rdp high aqu word ptr Chp + arg off + 2] 
67 vargbytes equ 4 

58 7? , o 

69 7 mov ax, dp low 

70 ; 

71 7? mov sp, bp 

72 ; pop Ip 

73 ; ret. argbytes 

(+ rsd endp 

rg , 

C6 7 ourge dpo_low, dpo_high 

(7 ; purge arghbytes. 

78 ; a 

1S 7code ends 

80 ; : assume css nothing 

81 v7ressubtitle(€’Single to Double Conversion’) 

; 8&2 PPPPEPIIIPIIETILLIIPPIIPIIPPIPOFIDEPLEPIPEPESLIDOPIPIPEPPEIPITILEIPLIIPLTIPLOPTE 

83 ,? 

S84 z7 dfs . 

&5 a Turn a single precision Cunsigned 16-bit) number into a double 
36 a7 nrecision number Cunsigned 32-bit). 

i) 7? 

88 rw; dfs: PROCEDURECsw) WORD, 

89 7 DECLARE 

99 a7 sw WORD; 

94 i? END dfs; | 

92 73 

93 PIPTPPESIGESPPIPPEEPESIPPEFLIDPFIDEPEPPIPPEPLIOPPPIPIPLEIPSIEPESIPIFIPSISEESIOSPS 
94 ; . 

95 ,code -°- segment 

96 , assume cs: cgroup 

97 ; 

98 rdfs proc near 

99 ,- yublic dfs 
100 ; push bp 

101 a, mov bps sp. 7 save and mark stack 
102 ; 
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LOC OBJ | LINE SOURCE 
1Q3 7 sw aqu word ptr Chp + arg_off + QJ 
104 vargbytes equ 2 
105 Re 
106 ; mov bxs sw 
107 ; xor axzs ax 
108 ; nov eS ax > essbx = double(sp) 
109 7 
110 7? mov spr bp 
? pop bp 
, — ret argbytes 
rdfs . endp 
; 
? purge sw 
7 purge argbytes 
4 
,code ends 
, assume cs: nothing 
sSsubtitle(’Double Pracision Compare’) 
PIPPI LOTPEPTIPILISDOSEOPFIDEIPPEPIIIPEOPPEPEPIPPPEPLIEELIDOPIPTFEPTEPPFIPLELOPES 
YA 
7 dpemp | 
; Comoare dp1 and de2 Cuncsigneds double precision (32-bit) numbers). 
7 Return -1, O-, +1 depending on dpl <, =, > dp2 
tA 
7 docmo: PROCE Buea iy: dp2) INTEGER? 
; DECLARE 
7 dp1 DWORD, 
; dp2 OWORD, 
; END dpecmp, 
4 


ae ssepseae#neseeree#eseste” ees @ 
FRITS IIPIPEPIITIPTATIPTPIIPELEEIPIPPIEPPLIPPDIPLELIPPPTLIFLEPTPIPPPPTISIOEETIOPVOPPIPED 


code segment 
assume cs: cgroup 


0000 dpenp proc near 
public dpeemp 
O0000 55 push bp 
0001 83eEC mov be, sp , save and mark stack 
0004C) do2_low equ word ptr ECkhp + arg_off + OJ 
0006C] dp2 high equ ord -ptre tbo + arg_oft + 22 
000éeéCI dp1_llow equ word ptr Chp + arg_loff + 4] 
OOOALI det_high equ word ptr Cbhp + arg_off,+ 4] 
0008 argbytes 2qu 8 
; ' 
7 Assume dpt < dp2. 
i, : 
C003 BSrrrr mov ax, OFFFFH 
; 
, Check High words. 
, 
0006 885E06 mov bx, dpo2e high 
0009 S395c04 cmp dpl_high, bx > high(dp1) <- = > high(dp2) 7? 


wk ed 2 2 —) 2 oR 2 | 2 Wd > od 2d or 2 Oo 2 2 wd > a A 8 on nd oe on en OA ee ES Oe 


WUWMUVU Pe ee PPE GIGI WGA UW WON PO Mm MM PN PT mS RR PPO 
NOU EEA OO OON AO URW OOO NA UM FW MR OWOON OUP WI RP OO MAIO WU SE UN > 


oo0c 770C ja dpc_dptogrtr 


POGSSR ORT AOS e 


LOC Gav 


COOE 720C 


0010 835504 
0013 S95ECs 
0016 7403 
0018 7202 


OO01A 40 
0013 40 
Q01C 


O01C 5D 
0010 C20800 


0020 


O020 55 
O021 8BEC 


0004043 
0006C] 
O008C43 
0006 


MACRO ASSEMALEP 


LINE 


4158 
159 
160 
161 
162 
163 
164 
165 
166 
167 
168 
169 
170 


0 & © G & © CO Co 


we ee we eo ees wd Oe 
OLN A OO ONO uw & ol 


OOO 


194 
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dpce_dpi_less 


ords equal. Check low words. 


SDPSUP 

SOURCE : 
jl 

: 

,y High w 

; 
mov 
cmp 
je 
jb 

; 

7 Get correct value in 

7 

dpc_dpt_grtr: inc 

dpc_dpt_ea: ine 

dpc_dpt_less: 

; mov 
pop 
ret 

cdpcmp endp 
purge 
purge 
purge 

code ends 
assume 


bx, dp2_low 

dpt_low,s bx 7 low(dp1) <, =, > Low(dp2) 
dpc_dpt_eq 

dpce_dpt_less 


axs by successive increments. 


ax 

ax 

Sp, hp 
bp 
arghbytes 


dpt_low, dp1t_high 
dp2_low,s dp2 high 
argbytes 


es: nothing 


subtitle (’ Double Precision Compare with Single Presis ion’) 


dscmp 


This c 


2 
a 
e 
s 
® 
a 
r 
fA 
® 
? 
. 
7 
. 
4 
° 
sf 
. 
4, 
e 
tA 
e 
f 
. 
7 
° 
4 
Py 
7 
f 


code 


dscmp 


sae 

dp4 low 
dpo1_high 
argbytes 


Compare dp. Cun 


Signed 32-bit) and sp2 Cunsigned 16-bit), converting 


sp2 to double~precision. Return -1- Cr, +1 depending on dp1 <r =r > 


SPZ2e \ 


dscmp: PROCEDURECdp1- sp2) INTEGER, 


DECLARE 
dp1 


DWORD, 
WORD, 


ode could be folded with dpcmp, but for mow it stays this way. 


segment 
assume 


pros 
public 
push 
mov 


equ 
equ 
equ 
equ 


. rare 
PUPEPLUIPELIEIPTIOTOS 7470 


cs: cqgroup 


near 
dscmp 

bp 

bp, sp y save and mark stack 


word ptr Cbp + arg_off + Q] 
word ptr Cbhp + arg_off + 2] 
word ptr Chp + arg_off + 4] 
6 


PAGE 


4 


0023 


0026 
GO2A 
O0eCc 


O02é 
0031 
0034 
0036 


0038 
0039 
OO3A 


COSA 
0038 


OOSE 


QOSE 
OO3F 


BGFFFF 


83720800 
770C 
720€ 


BBSE04 
SYOEUS 
7403 
(202 


40 
40 


5D 
C20600 


POM) Po Pd) ro 
—_ —- .2 — 
“JOR Ut IS IN 


218 


‘oe 
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SOURCE 


e 
oA 

s 
7 


a 
4 


Assume dp1 < sp2 
mov axy -OFFFEA 


Check High words. 


cmp dpt_highs 0 > high €dp1) <- =, > high(sp2) 2? 
ja dsc_dpit_grtr 
jb dec _dp1t_less 


High words equal. Check low words. 


mov bx, sp2 


cmp dpt_low,s bx 7 low(dp1) <, =, > low(sp2) 77? 
je dscldpileq 
jb dsc_dot_less 


Get correct value in axs by successive increments. 


ds¢ -dptiogrtr: inc ax 
“dsce_dpi_eq: inc ax 
dsc_dot_less: 
; mov spr bp 
pop bp 
ret argbytes 
dsecmp endp 


purge dpt_low, dp entang sp2 
purge -argbytes 


code ends 


eaevw#e«e#s8t 8 @ ewe 82 8s © 8 ee @ ew ewe ewe ehh thlUcrOm Fel hUhrhlh OhUhChUCcMFrmhUCUchFFhUcCOOrmhUCUcMFhUCUc FrmCUCUcChOrChUCUcPrChU Rh MHF PH BP BH KB Hee e@ 


PUPP OLIOPIIOEIIELIIPSLIIPPTIITEIPOPEOTPIOPFOSELIVPEPPED 


assume cs: nothing 


$subtitle(*%Double Precision Add’) 
(rT? 


ees s 
PETTITTE EPTPEETTTAOTTTTTT TEEGATE OTE PIL OPPIPSOPPTIPESPIEPIPPIFPEPIIITOP 


‘doadd 


Add dp and dp2 Cuncsigqned, double precision (32-bit) numbers). 
No dectection of overflow is preformed. 


dpadds PROCEDURECdp1, dp2) ODWORD; 


DECLARE 
dio 14 DWORD, 
dp2 ODWORD, 


END dpoadd,s 


eo @e@ aos 
TIPO LIPTPIDPPPEPTIPILPP?P 


“os 


cocle segment 


assume ess cgroup 


dpadiel proc near 


public dpaded. 
push br = 
mov bp, sp : , save and mark stack 
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LOC - OBJ LIN= SOURCE 
268 
0004C3 269 cdp2_low equ word ptr Cbp + arg_off + Q] 
O006CI . 270 dp2_ohigh 3qu word ptr Cbhp + arg_off + 2] 
OOcsfI ' 271 dpt_low equ word ptr EChp + arg_off + 4] 
Q00ACI . 272 dptohigh equ word ptr Chp + arg_off + 6] 
0008 . 27a *% argbytes 2qu 8 
ark ; 
275 , Add low parts, than high parts. 
276 ; : 
0041 8B5E08 277 . mov bxs dpt_low 
0044 Q35E04 278 acl bx, dp2_low 
279 
0047 884604 280 ; mov axz dptihigh 
O04A 134606 281 ade ax, dp2_high 
| ; 282 
0040 8£CO 283 . mov @Sy ax 7 eStbx now has result 
234 . 
285 , mov spr, bp 
OO4F 59 286 : pop bp 
0050 C20800 237 ret argbytes 
288 — dpadiel endp 
289 ! 
29C purge dp1_low, dp1t_high 
ao purge dp2_low, dp2 high 
age purge argbytes 
293 
<= 294 code ands 
| 295 assume cs: nothing 
296 7Ssubtitle(’Double Precision Add with Single Precision’) 
297 DE RLRTCPAGDEGE TOT DAUL INT MAIR DR aTEseTEsor i apT ii Teper peer eer tes iG 7ss 
298 ; 
299 , dsadd . 
300 ; Add dp1 Cunsigned 32-bit), sp2 Cunsigned 16-bit) by first 
) S07 - converting sp2 to double-precision. 
302 ; . 
503 7 No dectection of overflow is preformed. 
304 ; 
305 ; dsadd:s PROCEQURECdp1, sp2) DWORD; 
306 ; DECLARE 
307 ; dp DWwORD, 
308 ; sp2 WORD; 
309 ; END dsadd-z 
310 ; 
311 PPPPPPIEOPEIPSIIPEEDEEOEDPEPOPLEPEPEPDPFLIOTLIPFTIIPPELIFDEPIPPISEPPTPIDEIPPOFPEIPD 
312 
=<=<s . 313 code | segment 
S14 assume cs: cgroup 
S15 
0053 316 dsaded . proc near 
EG erg public dsadd 
0053 55 318 push lop 
0054 8BEC 319 | mov bo, sp 7, save and mark stack 
S20 
0004C) 321 ‘sp2 equ word ptr Chop + arg_off + 0] 


OCO06f02 322 dpt_low equ word ptr Chop t+ arg_off + 2] 


8036/8087/8088 


LOC 


OBJ 


0008C) 
0006 


0056 
0059 


OO5C 
OOSF 
0062 


0064 
0065 


0068 


0068 
0069 


835206 
O352&04 


BB4608 
150000 


SECO 


50 
C20600 


55 
88EC 


00040] 
060604 
0008C] 
OOOATI 
0008 


C068 835 


EOS 


MACRO ASSEMBLER 


ee eG, Ay SN er S.-i, et tite 


SOPSUP 05/19/82 PAGE 
SOURCE: 

dpt_high equ word ptr Cbhp + arg _off + 4] 

arabytes equ 6. 


? 
y Add low parts, then high parts. 


ry 
4 


mov bx, dpt_low 

ade bx spe 

mov ax dpt_high 

ace ax, 0 7 high(€sp2) = OQ 

move @Sv aX. . 7 estbx now has result 
; mov sp, bp 

| pop bp 

ret argbytes 

dsadd endp 


purge dp1_low, dpt_highs sp2 
purge argbytes 


code ends 
assume cs: nothing 
*7Esubtitle(’ Double Precision Subtract’) 


7 

r cdpsul . 

; Subtract dp2 from dp1 Cunvmsigned,, double precision (32-bit) numbers). 

; No dectection of cverflow is preformed. 
ae . 

; dosub: PROCEDURE Cdp1, dp2) DWORD; 

, DECLARE 

; dp OWORD, 

, dp2 DWORD, 

? END dpsub-, 

7 


@eese##kskeeewe#@#ests?t @ @ @e 8a 8s eseseeaests#n8f @¢#¢e#8# @seeskteeesest#se#eesrtese#e#te#eaeet* eet#eereeesees# # @ee*e @ tee @e##s#es a 


esa see 
PIPPTTTTPOTEOPETIALOPEETEPTTPEPTELIDIPEEIETTIPEPSEPIIPETIPTOTSFEPEIESTODEE 


code . segment 
assume cs: ¢cgroup 


dosulb proc near 


public dpsul 
push bp 
mov bps sp 7 save and mark stack 
dp2_low equ word ptr Cbp + arg_off + OQ] 
do2 high equ word ptr Cbp + arg_off + 2] 
det_low equ word ptr Chp + arg_off + 4] 
dod han equ word ptr Ehp + arg_off + §] 


argbytes 
? 
, Subtra 


s 
7 


equ 
ct low parts, 


mov 


8 


then high parts. 


xs 


dpt_llow 


ROSE/2087/ 8088 


LOC 
OO6E 


00714 
0074 


0077 


0079 
OO7A 


5D 
C20800 
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LINE 


378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 


SOPSUP 


SCURCE 
sul 


Nov 
$15 I> 


mov 


? mov 
pop 
ret 

dosub endp 


purge 
purge 
purge 


‘code ends 
assume 


bx dp2_low 


ax, dpt_high 
ax dp2_ high 


@S7 ax 
spr, bp 


lbp 
argbytes 


dp1_low, dptohigh 
de2 low, dp2_ high 
argbytes 


cs: nothing 
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7 essbx now has result 


pidsubtitlec’ Doulle Precision Subtract with Single Presicion Result’ ) 


ssesemp teens eos eaeeteaeneeseeene teenie 


saegweeekea#aenseeeees s @ 


se @ @ 
PUPPEPEPLIISPSPLIISIODIFOPPLEOPPEPEVDEOPELEPIOFIPPETPIOPEPTFISEOPPLESIPESPOPTSTPPPETS a a a an A 


a7. 
sdpsub 


~“ 
‘we 


Procedura only needs 


DECLARE © 
dp1 
dp2 

END Soneuey 


2 No Ve Ne Ne Ne Ne Na We NO 
aw ‘we We Nae Ne Ne Ne NB Ne NO 


; 


rcodes segment 
; assume 
; 

,sdpsub proc 

, public 
; push 

7 mov 

7 

sdp2_low 

rcdpe2_high equ 
vdpt_ilow 

rdptohigh equ 
vargbytes equ 

7? 


Subtract dp2 from dpt Cun-signed, 
returning a single precision result (the low order part). 


subtract the low order 


sdpsub: PROCDEURE OB) 7 dp 2) WORD; 


DWORD, 
DWORD; 


cs: cgroup 


near 
sdpsulb 

bp 

bp, sp , save 
equ word ptr Cbhp + 
word ptr Chp + arg_off 
equ word ptr Chp + 


word ptr Ebhp + arg off 
8 


ve Just subtract low (dp2) from low(€dp1).. 


7? 
? mov 
, sub 
? 
7? mov 
, pop 


aX? dpt_ilow 
axe dp2d_low 


spr, bp 
bp 


double precision (22-bit) numbers), 


words. 


and mark stack 


arg_lotf + 01 
+ 23 
arg_off + 4) 
+ 6] 
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LOC OBJ LINE SQURCE 
433 ? ret argbytes 
434 rsdpsub endp 
435 ; 
426 ; purge det_low, dpt_high 
437 ; purges dp2_ low, dp2_hign 
438 ? purge arabytes po 
439 ; 
446 rcode ends’ 
444 ; assume cs: nothing 
442 PBsubtitle(’ Double Precision Subtract with Single Precision’) 
443 POPPPTITIDEIPPEPIPOEPEIEELIPIIEPOEPEDEELTEPLEPLIPPPPELELIPTPITEFPETEFPPISPPTEED 
444 ; 
445 7 dssub 
446 ; Subtract sp2 Cunsigned 16~bit) from dpt Cunsigned 32-bit) by first 
447 ; converting sp2 to double-precision. of 
448 ; 
449 7 No cdectection of overflow is preformed. 
450 ; 
454 ; dssub: PROCEDURECdp1- sp2) DWORD; 
SZ ? DECLARE 
453 ; dot DWORD, 
454 ; spe “WORD, 
455 ; END dssub- 
456 ; 
457 ee 
458 
a 459 code segment | 
460 assume cs: cgroup 
| 4614 
O07D 462 dssuh proc near 
463 public dssub 
0070 55 464 push Ip 
OO7= 8BEC 445 : mov be, sp > save and mark stack 
466 
00040) . 467 sp2 aqu word ptr Chp + arg_off + QO] . 
- 00060] 466 dotollow equ word ptr Cbhp + arg_off + 2] 
O008C] 469 dptohigh equ word ptr Chp + arg _off + 4] 
0006 470 argbytes equ 6 
| 471 ; 
4&72 7 Subtract low parts, then high parts. 
473 ; 
0080 8B5E06 474 mov’ bx dpt_ Low 
0083 235E04 475 sul . bxs sp2 
476 ; 
0086 834608 477 mov ax, dpt_high 
0089 100000 478 shh axs 9 . 7 high t€sp2) = 0 
479 
OGSC BECO 4280 | mov eS, AX ; thx now has result 
481 
: 482 ; mov spy, bp 
COSE 5D . 4&3 pop bp | 
OO8F C20600 484 " pret argbytes 
435 desub endp : 
436 


87 ' purge de1_low, dpt_highs sp2 
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LOC OBJ LINE SOURCE 
438 purge arabytes 
489 
Se | 490 code ends 
491 . assume cs: nothing 
492 rSsubtitleC’Double Precision Multiply, with Single Precision’) 
493 PRPEPTEPTT TT TET EIT POET TET ETT TEE TET EP IPP TPOLETETPIP OTP ERISPSLESOPS ILS ED 
494 ; 
495 , dsmul 
496 ; Multiply dp1 (unsigned 32-bit), sp2 Cunsigned 14-bit). 
497 ; 
498 7 No dectection of overflow is preformed. 
499 ; 
500 '; cdsmul: PROCEDURECdp1, sp2) OWORD; 
501 ? DECLARE 
502 , dp 4 DWORD, 
503 , sp2 WORD; 
504 , END dsmul, 
505 ; 
504 PRET TTR REET ETRE TEETER TR TRAE TTT ATT TTTT TTT T TTT TT EGRET TTGT REET TTS 
507 
eae 506 cocle segment 
509 assume cs: cgroup 
510 
0092 511 dsmul proc near 
. 542 public dsmul 
0992 55 ee push bp | 
0093 8BEC 514 mov bps, sp > Save and mark stack 
te ee 
00040] 516 sp2 equ word ptr Cbhp + arg_off + QJ 
CO06L) 517 dopt_low equ. word ptr Chp + arg_off + 2] 
0008] 518 ~ dptohigh equ word ptr Chop + arg_off + 4] 
0006 519 argbytes aqu 6 
520 ; , 
| 521 , Multiple dptl_low and sp2, getting a 32-bit result. 
522 ; . 
0095 684606 523 Mov axrs dpt low 
0098 F76604 524 mul spe | 7 dxtax is result 
0098 8BD8 . $25 mov bxs ax | 
O09D 8BCA 526 - 3 MoV cx, dx | 7 e¢xtbx = dpt_low * sp2 
S27, ; : 
528 7 Multiply dpt_high by sp2- and add the low order result to the 
529 » high order result of dptl_low * spe. 
5356 ; 
52:1 , Thus result = . 
De ; low(€dpi_high * sp2) + high(dpt_low * sp2) : low(dpi_low * sp2) 
555 / 
OCOSF 884608 534 mov ax, dp t_high 
CGA2 F76Eé04 Joo mul spe . . z dxsax = dptihigh * sp2 
536 ; 
O0O45 03C14 S37 adel aXs CX 
OOA7 8ECO . 538 mov eSr ax | 7 esibx is it! 
- 539 : 
540: ; mov spr bp 
COAS 5D 54 pop bp 


COAA C20600 542 | ret. aragbytes 


RORS/BOST/AORE 


LOC 


OOAD 


OOQAD 
OGAE 


OBJ 


35 
SSEC 


00040) 
000623 
0004 


0080 
0083 


0036 
0038 


OGBA 


00388. 


834606 
F7S604 


50 
C20400 
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SOURCE 
dsmul andp 


purge dpt_low, dpi_lhighs sp2 
purge argbytes 


code ands 
assume ¢ 
*$subtitle(” Single Pracisi 


@ 
PIPOPTEPEPPPETIEPPEDEEOISGD 


s: nothing 
ion Multiply with Oouble Precision Result’) 
ra 


s e ee 
PIPTIPIPPPIPIEIEIPPEIPIPIPFIPEEIPPEPPPPLIPPIDTED a a an a A 


END dssmul, 


tA 

r dssmul 

; Multiply spl Cunsigned 14-bit), sp2 Cunsigned 16-bit). 
A 

; dssmul: PROCEOURE(Csp1, sp2) DWORD; 

, DECLARE 

; sp WCRDO>, 

, spZ2 WORD, 

; 

? 


eseeeseeaseshvsteskeeskert_enten#enweste eeeeg 
PUPPET EOPPPPPELOPSEIIFLEPTIOPSIPEPLIPTISOPFOPLEOPPSOLISIPD PPPPPPIPOPEPEOPSITTITPPTETE 


code segment 
assume cs: cgroup 


dssmul proc near 
public cdssmul 
push bp 
Mov bps sp 7 save and mark stack 
sn2 eau word ptr Ehp + arg_off + 0] 
sp equ word ptr Cbhp + arg_off + 23 
arglbytes equ - 4 
; 
mov axs spt 
mul sp2 "7 dxtax = spt * sp2 
mov es, dx , es = high(sp1 * sp2) 
mov bx ax 7 bx = low(sp1 * sp2) 
; Mov sp, bp 
pop ., bp. 
. ret: argbytes 
dssmul endp 
purge spit, sp2 
purge argbyteas 
code , ends 


assume cs: nothing 
7Ssubtitle(’Double Precision Divide by Single Precision’) . 
A 0 A 
, 
, dsdiv 
; Divide dp1 .Cunsigned 32-bit) by sp2 Cunsigned 16-bit) and return 
7 double precision result. 
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BO086/28087/8082 MACRO ASSEMPLER 


LOC O3J 


. OOBE 


OOBE 55 
OOBF 8BEC 


QOO004C) . 
O006CI 
‘O008C) 
0006 


OO0C1 384608 
O0C4 3302 
O0C6 F77604 
O0C9 8ECO 


00C3 884606 
OOCE F77604 


0001 8808 


0003 50 


~ 0004 C204600 — 


SOP SUP 


SOURCE 


(see below proof). 


~dsdivs PROCEDU 
DECLARE 
lp 1 
sp2 
END. dsediv,z 


we Ne Ns Ne Na Ne Ne Ne Ne Ne No 


code segmen 
assume 
dsdiv proc 
public 
push 
mov 
sp2 equ 
dopt_llow equ 
dot _high equ 
arghytes equ 


dpothigh = @ * sp2 + 


Thus, dp1 / ‘sp2 


Q 


first division. 


- Me Ne Ne No Ne Wa Ne Ne Ne Ws Ne Ne % 


mov 
xor 
div 
mov 


mov 
div 


mov 
nov 


pop 
ret 


“No 


- dsdiv ‘endp 


purge. 
purge 


CR : dptl_low) / sp2 "can’t" overflow, 


Divide by zero is still 
RECdp1-, so2) DWORD, 


DWORD, 
WORD; 


t 
es: cgroup 


near 
eediv 

bp 

bp, sp , save 


word ptr Chp + arg_loff 
word ptr EChp + arg_off 
word ptr Chp + arg _off 
6 


Ra 


: (€R : dpt_low) / sp2 


axs dp t high 
dx, dx 

sp2 

@Sy ax 


ax, dpt_low 
sp2 


bxs ax 
Sp, bp 


bp 
argbytes 


dpT_low, dot_highs sp2 
arabytes 


05/19/82 PAGE 


No overflow can occurs since a double precision result is returned 


a problem. 


ee ee ee ee ee ee 0 0 
2 Ae Ge A A 2 2 2 ee 0 0 0 A A A 0 0 0 2 0 0 0 A Ze 0 ee ee ee oe ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee ee 
a 


and mark stack 


+ 0) 
ie 2.) 
+ 4] 


\ 


(2**16 * (Q * sp2 ¢+ R) + dpot_low) / sp2z 
" C2kk1E * Q@ * spo2 t+ 2%*16 * R + dpt_low) / sp2 
2xx16 * Q + €2%*16 * R + dpt_low) / spe 


~ 


Since 0 <= R < sp2,s, by the 


(Is it obvious that I’ve never done multiple-precision division before?) 


7 dx = Rv ax = Q 
7 es = Q 
7 {R : dp1_low) / sp2 


> bx = CR : dpt_low) / spt 
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BO86/8087/8088 MACRO ASSEMALER  ~ SOPSUP 05/19/82 PAGE 


LOC OBJ LINE . SOURCE 
Saar . 653 code ends 
654 assume cs: nothing 
655 re Ssubtitle(’Double Precision Modulo by Single Precision’) 
656 PIPOLPFOPEPPIPTDEPIOELEPLEDESTEPLIOPPCEPPPEPEDPIOPTIEPSPOITITESIPEPIPEPIPTIEPDPTEOSE 
657 7 
63& a7 sdsmod - 
659 a7 ' Divide dpt Cunsigned 32-bit) by sp2 Cunsighned 16~bit) and return 
640 3 remainder after division. 
661 ar 
§62 7 Uses same algoritnm as dsdivs only returns remainder. 
663 a? 
664 a? sdsmod: PROCEDURECdp1, sp2) WORD; 
665 7? DECLARE | 
666 77 dp DWORD, 
667 7 sp2 WORD; 
668 7? END sdsmod, 
669 i? 
670 TPOIPIIELIEPLEPELISEDPIPTSEPFPEPIPSIPELESFPILFIVPIOTIEIPIPDFLOPFFTFOPPIPFPPFLOSEP 
671 ; 
672 7code segment 
673 7 assume cs: cgroup 
E74 ; 
675 ,sdsmod proc near 
é7é ; public sdsmod 
677 ; push bp 
E7R , mov bp, sp -7 Save and mark stack 
679 ; . 
6&0 7sp2 equ word ptr Chp + arg_off + Q] 
6&1 ‘;dpt_low equ word ptr Cop -t-argoft #23 
682 rdpt_high equ word ptr Cbhp + arg_off + 4] 
683 rargbytes equ é 
6&4 77 
635 7 mov ax dpt high 
686 7 xor dx, «dx 
é87 ; div spe of dx = Rv ax = Q 
688 ; | , 
689 , mov | axrv dpt_low 
690 ; div sp2 om 7 €R : dpt_low) / sp2 
694 7 
692 ; mov axs dx r get final remainder. 
695 ; . 
694 7? mov: sp, bp 
695 ; . pop lbp 
696 ; ret argbytes 
697 r,sdsmod endp 
E9& ; 
E99 ; purge dpt_low, dp thighs sp2z 
7900 ; purge argbytes 
£94 ; 
702 ,code ends 
; 
; 
; 
; 
; 


BO86/8087/808E MACRO ASSEMBLER 


LOC OsJ 


0007 


OOD7 55 
0008 8BEC 


00040] 
O006C4I 
O008C23 
0006 


OODA 834606 


OODD 885608 
OOE0 F77604 


OOE3S 50D 
~O0E4 C20600 


LINE 


708 
709 
710 
711 
Fe 
713 


ios 
734 
150 


738 


1414 
742 
043 


745 
746 
747 


ro 


SPP SUP 


SOURCE 


Cverfl 


we We We Ne Ne Ne Ne Ns Ne Ne Ne NG 


« s 


Prorat 
code 

“sdsdiv 
sp2 
dptilow 

dp1_high 


argbytes 
r 


sdsdiv 


code 
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Divide dp1l Cunsigned 32-bit) by sp2 Cunsigned 16-bit) and return 
Single precision result. 


ow can occur, and is detected by the hardware (int 90). 


sdscliv: PROCEDURECdp1, sp2) WORD; 


DECLARE 

dp 1 

spe 

END sdsdiv, 


se e@ea 
TUPI FOFS AE FI4thsts 


segment 
assume 


proc 
public 
push 
mov. 


equ 
equ 
aqu 
aqu. 


nov 
MoV 
div 


mov 
pop 
ret 
endp 


purge 
purge 


ends 
assume 


enc 


near 
sdsdiv 

lbp 

bps, sp 7 save 


word ptr Chp + arg_loff 
word otr Cho + arg off 
word ptr Chp + arg_off 
6 


ax, dpt_low 
dx dpi high 
spe 7 ax = 


spr, bp 


bE. 


argbytes 


dpt_low, dpil highs sp2 
argbytes 


cs: nothing 


and mark stacle 
+ OJ 


nee 
+ 4] 


Qr, dx = R 
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BOSE /RORT/ ANDRA 


XREF SYMBOL TABLE 


MACEO 


NAME 


22SEC « 2 ew 
ARG_OFF «. « 


ARGBYTESs « .« 


CGROUP. « « « 
CODE. e s ° a 


OP1T_HIGHs: « % 
DP1_LOW . a 


pDP2_HIGH. . . 
DP2 LOW ies 
DPAOD ace ait 
DPC_DP1_EQ. . 
DPC_DP1_GRTR. 
DPC_OP1_LESS. 
DPCM Sra ws 
DPSUB . ww 
DSADD e--S oe ve 
DSC_DP1_Eq. . 


DSC_OP1_GRTR» 


OSC_DPY_LESS. 
DSCMP . 2 « « 


DSHUL . 


END OF SYMS8OL 


ASSEMBLY COMPLETE, 


T 


LISTING 

YPE VALUE 
SEGMENT 

NUMBER  OO04H 
--PURGED-- 
GROUP 

SEGMENT 
--PURGED-- 
~-PURGED-- 
--PURGED-- 
--PURGED-- 
L NEAR GO3EH 
L NEAR 0018H 
L NEAR 0O1AH 
L NEAR  0O1CH 
L NEAR  OQOOH 
L NEAR G068H 
L NEAR O0053H 
L NEAR OQ039H 
L NEAR 0035H 
L NEAR GO3AH 
L NEAR 9020H 
L NEAR OO8EH 
L NEAR 0092H 
L NEAR OQOADH 
L NEAR OO7DH 
L NEAR OOD7H 
“-PURGED@- 
--PURGED-- 

ABLE LISTING 


+ 


NO ERRORS 


ASSIMBLEP 


SOP SUS 


‘ATTRIBUTES, 


XREFS 


SIZE=Q009H PARA PUBLIC 
37# 143 144 145 146 209 210 211 269 270 271 272 321 322 


515. 310° SS O02. 57-5 


147# 174 179P 212% 
542 546P 574% 


CODES 


STZE=QOE7H WORD 


508 
146% 
534 
1454 
Dee 
1442 
143% 


CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
CODE 
COD= 
CODE 
CODE 
COOE 
CODE 


» CODE 


CODE 
CODE 


573% 
209% 


PUBLIC 


D45P 620% 
163 177P 210% 
S45P 61934 
155 178P 270% 
162 178P 269% 


264% 


164 170% 
13.7 169 
158 165 1712 


PUSLIC 
PUBLIC 
PUBLIC 


1362 
3642 
3168 


228 2347 
cel. 2oo8 
eoe -229 2556 


PUBLIC 
PUBLIC 
PUBLIC 
PUBLIC 
PUSLIC 
PUBLIC 


2048 
6132 
5113 
S67# 
4627 
(24H 


S16 307 P 
226 241P 321% 329 341P 467# 475 487P 51684 524 535 545P 572# 577 587P 618# 637 641 


5&4 


PUBL 


635 


640 


26. 


139 
56D 
EM 6 


205 
614 
512 
Poke 
463 
725 


650P 729% 726 743P 


FOUND 


61-2564 9" 620 “29. 750)" (34 


238 242P 273# 287 292P 3244 338 342P 


588P 


TC." Coo: 
220 241P 272 
650P Sle 735 
227 241P 271% 
650P 730F 734 
287 .291P 3708 
278 291P 269% 
288 


239 
648 
343 
585 
485 
741 


621% 647 651P 732% 740 744P 

42% 136 202 262 314 362 460 509 565 611 722 

‘39% 40 42 135 181 201 244 
548 364 590 610 653 721 746 
156 17-7P 2118 


280 290P 323# ae 341P 


743P 

27? 290P 322# 
743P 

381 391P 

378 391P 


328 341P 


05/19/82 PAGE 


323 369 370 371 372 467 468 


373# 387 392P 470% 484 488P 


294 313 344 361 394 459 
372# 380 390P, 469% 477 487P 


371# 377 390P 468% 474 487P 
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469 


519# 


490 


518# 


317% 


